Global t -- var used for converting sci to decimal
Global unitNo -- var used for storing the current unit number
Global fieldName -- var used for containing the current field name
Global Git -- var global it
Global unitFieldName, zeroFieldName
doConvert
if field zeroFieldName = 0 then
put "ΓÇó" into field unitFieldName
put "-" into field fieldName
end if
end mainAction
on doConvert
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4,t,sciNumber,mresult
Global fieldName, unitFieldName, Git, zeroFieldName
-- * get the number to convert to decimal in invisible field *
put field fieldName into t
Convert t,"d->s" -- * check if sci. not., if no convert to it *
put t into n -- * put the converted number into n *
-- * put fieldname into zero before change *
put fieldName into zeroFieldName
-- * put number in destination field *
put fieldName & "2" into fieldName
-- * Do actual conversions *
if Git = 1 then -- the first menu item was chosen
multiply t,1 -- do conversion
put mresult into field fieldName -- get result of multiplication
put unit1 into field unitFieldName -- and put it and unit in field
Else
if Git = 2 then -- the second menu item was chosen
multiply t,convFact2 -- do conversion
put mresult into field fieldName -- get result of multiplication
put unit2 into field unitFieldName
Else
if Git = 3 then -- the third menu item was chosen
multiply t,convFact3 -- do conversion
put mresult into field fieldName -- get result of multiplication
put unit3 into field unitfieldName
Else
if Git = 4 then -- the fourth menu item was chose
multiply t,convFact4 -- do conversion
put mresult into field fieldName -- get result of multiplication
put unit4 into field unitFieldName
end if
end if
end if
end if
end doConvert
on Convert -- converts sci notation into decimal
Global sciNumber
put the param of 1 into n
if the param of 2 = "s->d" then
if the number of words in n > 1 then -- if two words, then sci not.
put word 1 of n into number1
put word 2 of n into number2
put empty into char 1 of number2
put 10^number2 into number2
put number1 * number2 into sciNumber
else
put n into sciNumber
end if
Else
if the param of 2 = "d->s" and the number of words in n <= 1 then
put trunc(ln(n)/ln(10)) into n2 -- find power of number
if n <> 0 then
if n2<1 and n2>-1 then -- if power less than one, put nothing in pwr
put n into sciNumber
else -- if power is 1 or greater, put the power in the exponential
put "e"&n2 into n4
put n/(10^n2) into n3 -- divide the number by the highest pwr of 10
set numberFormat to "0.####"
put n3 into n3
put n3 && n4 into sciNumber -- put the decimal and power together
end if
end if
else
put the param of 1 into sciNumber
end if
end if
end Convert
on multiply
Global mresult --variable to put result of multiplication
put the param of 1 into tno1 -- multiplier into tno1
put the param of 2 into tno2 -- multiplicand into tno2
put word 1 of tno1 into tno1m -- put mantissa of multiplier in tno1
put word 1 of tno2 into tno2m -- put mantissa of multiplic. in tno2
put word 2 of tno1 into tno1e -- put exponent of multiplier in tno1e
put word 2 of tno2 into tno2e -- put exponent of multiplic. in tno2e
put empty into char 1 of tno1e -- wipe out the "e" in the exponent
put empty into char 1 of tno2e -- wipe out the "e" in the exponent
set numberFormat to "0.####" -- sets number format to 0.0000
put tno1m * tno2m into tnomr -- multiplies mantissa's
--if the mantissa result > zero then add
--the exponents and put them into tnoer, else put nothing into
--tnoer
if tnomr >0 then
put tno1e + tno2e into tnoer
else
put empty into tnoer
end if
--checks the magnitude of the result mantissa
put trunc(ln(tnomr)/ln(10)) into tnomrtemp
if tnomrtemp >=1 or tnomrtemp < 0 then
put tnomrtemp + tnoer into tnoer
put tnomr/(10^tnomrtemp) into tnomr
end if
if tnoer = 0 and tnomr>0 then
put tnomr into mresult
else
if tnomr=0 then
put "-" into mresult
else
put tnomr && "e" & tnoer into mresult
end if
end if
end multiply
on tempConvert
Global TGit -- * global variable to hold temp unit number *
Global fieldName -- * global variable to hold name of invisible field
put field fieldName into zeroField
-- * put number in destination field *
put fieldName & "2" into fieldName
if TGit = 1 then
put zeroField into field fieldName
if "boil" is in fieldName then
put "(┬░C)" into field "boilUnit"
else
put "(┬░C)" into field "meltUnit"
end if
Else
if TGit = 2 then
put zeroField * (9/5) + 32 into field fieldName
if "boil" is in fieldName then
put "(┬░F)" into field "boilUnit"
else
put "(┬░F)" into field "meltUnit"
end if
Else
if TGit = 3 then
put zeroField + 273.15 into field fieldName
if "boil" is in fieldName then
put "(K)" into field "boilUnit"
else
put "(K)" into field "meltUnit"
end if
end if
end if
end if
end tempConvert
on closeCard
Global ARadiusFlag,GAVFlag,FIPFlag,ElectrResistFlag
Global AHFlag,boilFlag,meltFlag,densityFlag
Global thermCondFlag
if thermCondFlag then
if field "thermCond" = 0 then
put "-" into field "thermCond2"
put "ΓÇó" into field "thermCondUnit"
else
put field "thermCond" into field "thermCond2"
put "Watts/sq.cm" into field "thermCondUnit"
put false into thermCondFlag
end if
end if
if ARadiusFlag then
if field "AtomicRadius" = 0 then
put "-" into field "AtomicRadius2"
put "ΓÇó" into field "ARunit"
else
put field "AtomicRadius" into field "AtomicRadius2"
put "(Å)" into field "ARunit"
put false into ARFlag
end if
end if
if GAVFlag then
if field "GAV" = 0 then
put "-" into field "GAV2"
put "ΓÇó" into field "GAVunit"
else
put field "GAV" into field "GAV2"
put "(cu. cm)" into field "GAVunit"
put false into GAVFlag
end if
end if
if FIPFlag then
if field "FIP" = 0 then
put "-" into field "FIP2"
put "ΓÇó" into field "FIPunit"
else
put field "FIP" into field "FIP2"
put "(eV)" into field "FIPunit"
put false into FIPFlag
end if
end if
if electrResistFlag then
if field "electrResist" = 0 then
put "-" into field "electrResist2"
put "ΓÇó" into field "electrResistunit"
else
put field "electrResist" into field "electrResist2"
put "┬╡ohm-cm" into field "electrResistunit"
put false into electrResistFlag
end if
end if
if AHFlag then
if field "AmpHr" = 0 then
put "-" into field "AmpHr2"
put "ΓÇó" into field "AHunit"
else
put field "AmpHr" into field "AmpHr2"
put "Amp-Hr" into field "AHunit"
put false into AHFlag
end if
end if
if boilFlag then
if field "BoilPt" = 0 then
put "-" into field "BoilPt2"
put "ΓÇó" into field "BoilUnit"
else
put field "BoilPt" into field "BoilPt2"
put "┬░C" into field "BoilUnit"
put false into boilFlag
end if
end if
if meltFlag then
if field "meltPt" = 0 then
put "-" into field "meltPt2"
put "ΓÇó" into field "meltUnit"
else
put field "meltPt" into field "meltPt2"
put "┬░C" into field "meltUnit"
put false into meltFlag
end if
end if
if densityFlag then
if field "density" = 0 then
put "-" into field "density2"
put "ΓÇó" into field "densityUnit"
else
put field "density" into field "density2"
put "g per cu. cm" into field "densityUnit"
put false into densityFlag
end if
end if
hide bkgnd button id 72
hide bkgnd button id 68
hide bkgnd button id 67
hide bkgnd button id 70
hide bkgnd button id 77
hide bkgnd button id 76
hide bkgnd button id 66
hide field "isoinfo1"
hide field "isoinfo2"
hide field "isoinfo3"
hide field "sol.2"
end closeCard
-- part 1 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=52 top=2 right=19 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Symbol
-- part 15 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=41 top=21 right=39 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Symbol
-- part 17 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=77 top=61 right=78 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicWt
-- part 18 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=90 top=95 right=112 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicRadius
-- part 19 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=117 top=131 right=149 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GAV
-- part 20 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=114 top=178 right=196 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RelElectro
-- part 21 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=100 top=214 right=231 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIP
-- part 23 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=61 top=290 right=307 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Val
-- part 24 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=71 top=322 right=340 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AmpHr
-- part 27 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=430 top=1 right=20 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Density
-- part 28 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=457 top=31 right=48 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RelHard
-- part 29 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=428 top=56 right=73 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilPt
-- part 30 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=462 top=107 right=124 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SpecHeat
-- part 31 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=423 top=140 right=157 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thermCond
-- part 33 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=411 top=188 right=206 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Linear
-- part 34 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=457 top=223 right=240 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Elast
-- part 35 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=444 top=259 right=275 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TenStr
-- part 36 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=74 top=41 right=59 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicNo
-- part 37 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=440 top=73 right=91 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltPt
-- part 39 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=292 top=313 right=337 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
put true into thermCondFlag
set cursor to 4
lock screen
go to next card
repeat while the short name of this card is "*Table" or the short name of this card is "ar*" or the short name of this card is "nr" or the short name of this card is "Ad" or the short name of this card is "Noble" or the short name of this card is "Halogen" or the short name of this card is "Metalloid" or the short name of this card is "Alkali" or the short name of this card is "Constants" or the short name of this card is "sortControl" or the short name of this card is "elementInfoHelp"
go to next card
end repeat
unlock screen with dissolve very fast
end mouseUp
-- part 40 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=189 top=313 right=337 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
go to prev card
repeat while the short name of this card is "*Table" or the short name of this card is "ar*" or the short name of this card is "nr" or the short name of this card is "Ad" or the short name of this card is "Noble" or the short name of this card is "Halogen" or the short name of this card is "Metalloid" or the short name of this card is "Alkali" or the short name of this card is "Constants" or the short name of this card is "sortControl" or the short name of this card is "elementInfoHelp"
go to prev card
end repeat
unlock screen with dissolve very fast
end mouseUp
-- part 41 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=436 top=290 right=307 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Latent
-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=7 right=27 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Gas
-- part 42 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=267 top=109 right=148 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
hide field isoInfo1
hide field isoInfo2
hide field isoInfo3
hide background button id 72
hide background button id 68
hide background button id 67
hide background button id 66
hide background button id 70
hide background button "Solubility and Stability"
hide field "sol.2"
hide background button "Close Solubility"
go to card "*Table"
unlock screen with visual effect dissolve fast
end mouseUp
-- part 45 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=50 right=70 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Liquid
-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=29 right=48 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Solid
-- part 48 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=402 top=308 right=340 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OxSt
-- part 49 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=222 top=243 right=264 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 50 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=117 top=233 right=250 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ElectrResist
-- part 53 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=190 top=79 right=100 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Iso
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
show field isoInfo1
show field isoInfo2
show field isoInfo3
show background button id 72
show background button id 68
show background button id 67
show background button id 66
show background button "Close Isotope Info"
unlock screen with checkerboard
end mouseUp
-- part 78 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=250 top=162 right=184 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
go to card field "Up"
unlock screen with scroll down
end mouseUp
-- part 79 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=231 top=178 right=200 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
go to card field "Left"
unlock screen with scroll right
end mouseUp
-- part 80 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=266 top=178 right=200 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
go to card field "Right"
unlock screen with scroll left
end mouseUp
-- part 81 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=253 top=196 right=219 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 2730 / 2730
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
go to card field "Down"
unlock screen with scroll up
end mouseUp
-- part 73 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=260 top=79 right=100 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Solubility
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
show background button "Solubility and Stability"
show field "sol.2"
show background button "Close Solubility"
unlock screen with checkerboard
end mouseUp
-- part 77 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=340 top=176 right=198 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Solubility and Stability
-- part 74 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=340 top=197 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: sol.2
-- part 76 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=369 top=319 right=341 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Solubility
----- HyperTalk script -----
on mouseUp
hide background button "Solubility and Stability"
hide field "sol.2"
hide background button "Close Solubility"
end mouseUp
-- part 82 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=210 top=113 right=145 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to 4
push card
lock screen
go to card "sortControl"
unlock screen with dissolve
end mouseUp
-- part 83 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=81 top=94 right=112 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AtomicRadius2
-- part 86 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=4 top=80 right=112 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ARConvert
----- HyperTalk script -----
on mouseDown
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4
Global Git
Global fieldName, unitFieldName
Global ARadiusFlag
put true into ARadiusFlag
get PopUpMenu("Å;m;cm;in", unitNo, 110, 10)
put it into Git -- Global it
put "(Å)" into unit1
put "(m)" into unit2
put "(cm)" into unit3
put "(in)" into unit4
put "1 e-10" into convFact2
put "1 e-12" into convFact3
put "3.937007 e-9" into convFact4
put "AtomicRadius" into fieldName
put "ARunit" into unitFieldName
send mainAction to background "elementInfo"
end mouseDown
-- part 87 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=46 top=95 right=112 bottom=83
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ARUnit
-- part 88 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=114 right=147 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GAVConvert
----- HyperTalk script -----
on mouseDown
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4
Global Git
Global fieldName, unitFieldName
Global GAVFlag
put true into GAVFlag
get PopUpMenu("cu. cm.;cu. m;cu. in.;cu. ft.", unitNo, 147, 10)
put it into Git -- Global it
put "(cu. cm.)" into unit1
put "(cu. m)" into unit2
put "(cu.in.)" into unit3
put "(cu. ft.)" into unit4
put "1 e-6" into convFact2
put "6.102374409 e-2" into convFact3
put "3.5314 e-5" into convFact4
put "GAV" into fieldName
put "GAVunit" into unitFieldName
send mainAction to background "elementInfo"
end mouseDown
-- part 91 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=104 top=131 right=149 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GAV2
-- part 90 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=56 top=132 right=148 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: GAVUnit
-- part 92 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=241 top=149 right=166 bottom=280
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Up
-- part 93 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=204 top=181 right=198 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Left
-- part 94 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=286 top=181 right=199 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Right
-- part 95 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=242 top=215 right=232 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Down
-- part 96 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=62 top=214 right=231 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIP2
-- part 97 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=102 top=201 right=218 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: FIPUnit
-- part 98 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=198 right=229 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ARConvert
----- HyperTalk script -----
on mouseDown
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4
Global Git
Global fieldName, unitFieldName
Global FIPFlag
put true into FIPFlag
get PopUpMenu("eV;ergs", unitNo, 230, 10)
put it into Git -- Global it
put "(eV)" into unit1
put "(ergs)" into unit2
put " " into unit3
put " " into unit4
put "1.60219 e-12" into convFact2
put "0" into convFact3
put "0" into convFact4
put "FIP" into fieldName
put "FIPunit" into unitFieldName
send mainAction to background "elementInfo"
end mouseDown
-- part 99 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=234 right=264 bottom=136
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ARConvert
----- HyperTalk script -----
on mouseDown
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4
Global Git
Global fieldName, unitFieldName
Global FIPFlag
-- let card know that the units have been changed in this card
put true into FIPFlag
-- routine to get results from pop-up menu
get PopUpMenu("┬╡Ohm-cm;Circ. mil-Ohms per ft.;┬╡Ohm-inches;Ohm-cm",unitNo, 250, 10)
put it into Git -- Global it, holds what unit was selected
--load units into unit variables
put "(┬╡Ohm-cm)" into unit1
put "(Circ. mil.-Ohms/ft)" into unit2
put "(┬╡Ohm-inches)" into unit3
put "(Ohm-cm)" into unit4
--load conversion factors into variables
put "6.0153049" into convFact2
put "3.9370079 e-1" into convFact3
put "1 e-4" into convFact4
put "ElectrResist" into fieldName
put "ElectrResistunit" into unitFieldName
-- send message to the main subroutine
send mainAction to background "elementInfo"
end mouseDown
-- part 100 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=111 top=233 right=250 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ElectrResist2
-- part 101 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=5 top=250 right=263 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: electrResistUnit
-- part 103 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=71 top=322 right=340 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AmpHr2
-- part 104 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=7 top=309 right=327 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AHUnit
-- part 102 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=309 right=340 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AHConvert
----- HyperTalk script -----
on mouseDown
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4
Global Git
Global fieldName, unitFieldName
Global AHFlag
-- let card know that the units have been changed in this card
put true into AHFlag
-- routine to get results from pop-up menu
get PopUpMenu("Amp-Hrs;Coulombs",unitNo, 279, 10)
put it into Git -- Global it, holds what unit was selected
--load units into unit variables
put "Amp-Hrs" into unit1
put "Coulombs" into unit2
put " " into unit3
put " " into unit4
--load conversion factors into variables
put "3.600 e3" into convFact2
put "1" into convFact3
put "1" into convFact4
put "AmpHr" into fieldName
put "AHunit" into unitFieldName
-- send message to the main subroutine
send mainAction to background "elementInfo"
end mouseDown
-- part 107 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=420 top=1 right=20 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Density2
-- part 106 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=342 top=18 right=36 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DensityUnit
-- part 105 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=342 top=4 right=36 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DensityConvert
----- HyperTalk script -----
on mouseDown
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4
Global Git
Global fieldName, unitFieldName
Global DensityFlag
-- let card know that the units have been changed in this card
put true into DensityFlag
-- routine to get results from pop-up menu
get PopUpMenu("g per cu. cm;g per liter;lb. per cu. in.;lb. per cu. ft",unitNo, 20, 342)
put it into Git -- Global it, holds what unit was selected
--load units into unit variables
put "g per cu. cm at 20┬░C" into unit1
put "g per liter at 20┬░C" into unit2
put "lb. per cu. in. 20┬░C" into unit3
put "lb. per cu. ft. 20┬░C" into unit4
--load conversion factors into variables
put "1.0 e3" into convFact2
put "3.6127292 e-2" into convFact3
put "6.2427961 e1" into convFact4
put "Density" into fieldName
put "Densityunit" into unitFieldName
-- send message to the main subroutine
send mainAction to background "elementInfo"
end mouseDown
-- part 110 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=439 top=56 right=74 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilPt2
-- part 112 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=407 top=56 right=75 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilUnit
-- part 114 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=341 top=51 right=74 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BoilConvert
----- HyperTalk script -----
on mouseDown
Global boilFlag
Global TGit -- * global variable to hold temp unit *
Global fieldName -- * global variable to hold invisible field temp *
Global unitfieldName -- * global variable to hold unit field name *
put true into boilFlag
put the mouseloc into myPlace
put item 1 of myPlace - 30 into horiz
put item 2 of myPlace - 30 into vert
get PopUpMenu("Centigrade;Farenheit;Kelvin",unitNo, 74, 342)
put it into TGit -- * Global it, holds what unit was selected, temp *
put "boilPt" into fieldName
tempConvert
end mouseDown
-- part 116 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=428 top=73 right=91 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltPt2
-- part 115 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=341 top=75 right=99 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltConvert
----- HyperTalk script -----
on mouseDown
Global meltFlag
Global TGit -- * global variable to hold temp unit *
Global fieldName -- * global variable to hold invisible field temp *
Global unitfieldName -- * global variable to hold unit field name *
put true into meltFlag
put the mouseloc into myPlace
put item 1 of myPlace - 30 into horiz
put item 2 of myPlace - 30 into vert
get PopUpMenu("Centigrade;Farenheit;Kelvin",unitNo, 92, 342)
put it into TGit -- * Global it, holds what unit was selected, temp *
put "meltPt" into fieldName
tempConvert
end mouseDown
-- part 72 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=341 top=1 right=23 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Isotope
-- part 68 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=399 top=1 right=23 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: At. Wt.
-- part 67 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=459 top=1 right=23 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: %
-- part 113 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=409 top=73 right=91 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MeltUnit
-- part 132 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=0 top=57 right=77 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes
-- part 134 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=183 top=148 right=190 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 2065 / 2065
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
show bkgnd button id 133
show field "notesField"
show bkgnd button "notes"
unlock screen with dissolve very fast
end mouseUp
-- part 135 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=304 top=153 right=179 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
push card
go to card "elementInfoHelp"
unlock screen with dissolve very fast
end mouseUp
-- part 136 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=117 top=252 right=267 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 137 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=5 top=261 right=275 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name:
-- part 131 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=0 top=76 right=342 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: notesField
-- part 133 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=30 top=315 right=337 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Notes
----- HyperTalk script -----
on mouseUp
set cursor to 4
lock screen
hide bkgnd button id 133
hide bkgnd button "Notes"
hide field "notesField"
unlock screen with dissolve very fast
end mouseUp
-- part 138 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=473 top=18 right=36 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name:
-- part 66 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=341 top=1 right=22 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Natural Isotope Data
-- part 139 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=448 top=90 right=108 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name:
-- part 141 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=344 top=46 right=63 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name:
-- part 147 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=423 top=140 right=157 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thermCond2
-- part 148 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=399 top=127 right=142 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: thermCondUnit
-- part 71 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=340 top=20 right=178 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: isoInfo1
-- part 57 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=397 top=20 right=178 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: isoInfo2
-- part 60 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=457 top=20 right=178 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IsoInfo3
-- part 70 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=358 top=155 right=177 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Isotope Info
----- HyperTalk script -----
on mouseUp
lock screen
hide field isoInfo1
hide field isoInfo2
hide field isoInfo3
hide background button id 72
hide background button id 68
hide background button id 67
hide background button id 66
hide background button id 70
unlock screen with dissolve fast
end mouseUp
-- part 142 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=342 top=126 right=159 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thermCondConvert
----- HyperTalk script -----
on mouseDown
Global convFact2, convFact3, convFact4
Global unit1, unit2, unit3, unit4
Global Git
Global fieldName, unitFieldName
Global thermCondFlag
-- let card know that the units have been changed in this card
put true into thermCondFlag
-- routine to get results from pop-up menu
get PopUpMenu("Watts per sq. cm;B.t.u. per hr. sq.ft.;B.t.u. per hr. sq. in.;Ft.lbs. per min. sq.ft.",unitNo, 154, 343)
put it into Git -- Global it, holds what unit was selected
